home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / asmbler.arc / MOVE.ASM < prev    next >
Encoding:
Assembly Source File  |  1988-11-20  |  625 b   |  29 lines
  1. ASSUME  CS:MOVEC,DS:MOVEC,ES:MOVEC,SS:MOVEC
  2. MOVEC   SEGMENT PARA PUBLIC 'CODE'
  3.  
  4. INCLUDE UTIL.INC
  5.  
  6.         ORG     100H
  7. MOVE:   XOR     BX,BX
  8.         MOV     CL,BYTE PTR [BX].UPA
  9.         XOR     CH,CH
  10.         LEA     DI,[BX+1].UPA
  11.         SCANPARAM DX,ERROR1
  12.         SCANPARAM SI,ERROR1
  13.         SCANPARAM BX,MOV1
  14.         JMP     ERROR1
  15. MOV1:   MOV     DI,SI
  16.         MOV     AH,56H
  17.         INT     21H
  18.         JC      ERROR
  19.         NORMALTERM
  20. ERROR1: MOV     AX,19
  21.         ERRORTERM
  22.  
  23. ASSUME  CS:MOVEC,DS:MOVEC,ES:MOVEC,SS:MOVEC
  24.         MWRITESTR
  25.         MWRITELN
  26.  
  27. MOVEC   ENDS
  28.         END     MOVE
  29.